home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
gsdb25.zip
/
DB_XPL06.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-11-28
|
657b
|
30 lines
program DB_Xpl06;
uses
CRT,
DOS,
GS_KeyI,
GS_dBFld,
GS_dBase;
var
Health : GS_dBFld_Objt;
begin
ClrScr;
GoToXY(15,25);
write('ESC to Abort, F10 for Next, F9 to Delete/Undelete');
Window(1,1,80,24);
Health.Init('HEALTH');
Health.Open;
Health.Index('FOODNAME'); {Use Index FOODNAME.NDX}
Health.GetRec(Top_Record);
while (Health.FieldUpdateScreen) and (not Health.File_EOF) do
begin
Health.PutRec(Health.RecNumber);
if GS_KeyI_Chr = Kbd_PgUp then
Health.GetRec(Prev_Record)
else
Health.GetRec(Next_Record);
end;
Health.Close;
end.